home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / LETUS123.BAS < prev    next >
BASIC Source File  |  1992-04-03  |  5KB  |  100 lines
  1. '  LETUS123.BAS     PROGRAMMER: ANDY KELLETT
  2. '  A COMPLETE SPREADSHEET CLONE OF YOUR FAVORITE SOFTWARE.  GREAT FOR
  3. '  ACCOUNTANTS AND MANAGERS WHO LEAVE THEIR PC RUNNING YOU-KNOW-WHAT
  4. '  WHILE THEY ARE AWAY FROM THEIR DESKS.  ALSO FUN FOR ANYONE TAKING
  5. '  A CLASS IN THAT SAME POPULAR SPREADSHEET!  AMAZE YOUR FRIENDS.
  6. '      WRITTEN USING  POWERBASIC V2.00
  7. '      WRITTEN: 09/28/90     LAST UPDATED: 04/01/92    1:10 P.M.
  8. '-------------------------------------------------------------------------
  9. GOSUB INIT
  10.  
  11. CLS
  12. COLOR 15,0
  13. LOCATE  1, 1:PRINT "     C33:                                                               ";:COLOR 0,15:PRINT " MENU":COLOR 15,0
  14. LOCATE  2, 1:PRINT "     Retrieve  Save  Combine  Xtract  Erase  List  Import  Directory         "
  15. LOCATE  3, 1:PRINT "     Erase the current worksheet and display the selected worksheet          "
  16. LOCATE  4, 1:COLOR 0,15:PRINT "          A        B        C        D        E        F        G        H   ":COLOR 15,0
  17. LOCATE  5, 1:COLOR 0,15:PRINT "21";:COLOR 15,0:PRINT "                                                                           "
  18. LOCATE  6, 1:COLOR 0,15:PRINT "22";:COLOR 15,0:PRINT "                  TOTALS FOR THIS MONTH: EXCLUDING FIGURES INCLUDED ON     "
  19. LOCATE  7, 1:COLOR 0,15:PRINT "23";:COLOR 15,0:PRINT "  ====================================================================     "
  20. LOCATE  8, 1:COLOR 0,15:PRINT "24";:COLOR 15,0:PRINT "                     $340.12                                               "
  21. LOCATE  9, 1:COLOR 0,15:PRINT "25";:COLOR 15,0:PRINT "                    *********                                              "
  22. LOCATE 10, 1:COLOR 0,15:PRINT "26";:COLOR 15,0:PRINT "                     $299.74           ($93.41)                            "
  23. LOCATE 11, 1:COLOR 0,15:PRINT "27";:COLOR 15,0:PRINT "                      $18.01                                               "
  24. LOCATE 12, 1:COLOR 0,15:PRINT "28";:COLOR 15,0:PRINT "                      $46.33                                               "
  25. LOCATE 13, 1:COLOR 0,15:PRINT "29";:COLOR 15,0:PRINT "                     $911.44                                               "
  26. LOCATE 14, 1:COLOR 0,15:PRINT "30";:COLOR 15,0:PRINT "                    *********                                              "
  27. LOCATE 15, 1:COLOR 0,15:PRINT "31";:COLOR 15,0:PRINT "                     $417.39                                               "
  28. LOCATE 16, 1:COLOR 0,15:PRINT "32";:COLOR 15,0:PRINT "                       $8.95          ($712.02)                            "
  29. LOCATE 17, 1:COLOR 0,15:PRINT "33";:COLOR 15,0:PRINT "                                                                           "
  30. LOCATE 18, 1:COLOR 0,15:PRINT "34";:COLOR 15,0:PRINT "                                                                           "
  31. LOCATE 19, 1:COLOR 0,15:PRINT "35";:COLOR 15,0:PRINT "                                                                           "
  32. LOCATE 20, 1:COLOR 0,15:PRINT "36";:COLOR 15,0:PRINT "                                                                           "
  33. LOCATE 21, 1:COLOR 0,15:PRINT "37";:COLOR 15,0:PRINT "                                                                           "
  34. LOCATE 22, 1:COLOR 0,15:PRINT "38";:COLOR 15,0:PRINT "                                                                           "
  35. LOCATE 23, 1:COLOR 0,15:PRINT "39";:COLOR 15,0:
  36.  
  37. LOCATE 24, 1:PRINT DA$;"-";MO$;"-";YR$;"  ";TIME$;
  38. ' **  LOCATE 23, 1:PRINT "02-Oct-90  08:62 AM                                                ";:COLOR 0,15:PRINT "NUM CAPS";:COLOR 15,0
  39.  
  40. KY$ = "":WHILE KY$ = "":KY$ = INKEY$:WEND
  41.  
  42. '** IF USER PRESSES / THEN FAKE A "COMMAND ERROR"
  43. IF KY$ = "/" THEN
  44.    DELAY 2
  45.    FOR I% = 1 TO 12
  46.       LOCATE 19,25:PRINT "*** COMMAND ERROR ***":DELAY .7
  47.       LOCATE 19,25:PRINT "                     ":DELAY .3
  48.    NEXT I%
  49.    LOCATE 25,1
  50.    FOR I% = 1 TO 6
  51.       PRINT:DELAY .29
  52.    NEXT I%
  53.    FOR I% = 1 TO 9
  54.       PRINT:DELAY .15
  55.    NEXT I%
  56.    FOR I% = 1 TO 12
  57.       PRINT:DELAY .05
  58.    NEXT I%
  59.  
  60. END IF
  61.  
  62. BEEP
  63. END
  64.  
  65. '
  66. '----------  INITIALIZE VARIABLES, SET UP THE MONTH  -----------
  67. INIT:
  68.    TEMP$ = DATE$
  69.    YR$ = RIGHT$(DATE$,2):MO$ = LEFT$(DATE$,2):DA$ = MID$(DATE$,4,2)
  70.    MO = VAL(MO$)
  71.    SELECT CASE MO
  72.       CASE 1
  73.      MO$ = "Jan"
  74.       CASE 2
  75.      MO$ = "Feb"
  76.       CASE 3
  77.      MO$ = "Mar"
  78.       CASE 4
  79.      MO$ = "Apr"
  80.       CASE 5
  81.      MO$ = "May"
  82.       CASE 6
  83.      MO$ = "Jun"
  84.       CASE 7
  85.      MO$ = "Jul"
  86.       CASE 8
  87.      MO$ = "Aug"
  88.       CASE 9
  89.      MO$ = "Sep"
  90.       CASE 10
  91.      MO$ = "Oct"
  92.       CASE 11
  93.      MO$ = "Nov"
  94.       CASE ELSE
  95.      MO$ = "Dec"
  96.    END SELECT
  97.  
  98. RETURN
  99.  
  100.